Dit voorbeeld maakt gebruik van de functie Timer om de toepassing tijdelijk te onderbreken. Het voorbeeld maakt tevens gebruik van DoEvents om tijdens de onderbreking andere processen te genereren.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Druk op Ja om 5 seconden te pauzeren", 4)) = vbYes Then
PauseTime = 5 ' Tijdsduur instellen.
Start = Timer ' Aanvangstijd instellen.
Do While Timer < Start + PauseTime
DoEvents ' Overdragen aan andere processen.
Loop
Finish = Timer ' Eindtijd instellen.
TotalTime = Finish - Start ' Totaaltijd berekenen.
MsgBox "Pauze gedurende " & TotalTime & " seconden"
Else
End
End If